Attribute VB_Name = "modFTPDeclare"
Option Explicit
Public Function encodepass(Password As String) As String
    Dim strTemp     As String
    Dim objCrypt    As EncryptionTools
        Set objCrypt = New EncryptionTools
        strTemp = objCrypt.Encrypt("G@l1l30V13tm@m", Password)
        strTemp = objCrypt.URLEncodeBinaryData(strTemp)
        encodepass = strTemp '& "549207330196107A8B378637833B207330196107A8B3786378"
        Set objCrypt = Nothing
End Function


Public Function decodepass(Password As String) As String
    Dim strTemp     As String
    Dim objCrypt    As EncryptionTools
    If Password = "" Then
        
    Else
        'password = Left$(password, Len(password) - 50)
        Set objCrypt = New EncryptionTools
        strTemp = objCrypt.URLDecodeBinaryData(Password)
        strTemp = objCrypt.Decrypt("G@l1l30V13tm@m", strTemp)
        decodepass = strTemp
        Set objCrypt = Nothing
    End If
End Function
